home *** CD-ROM | disk | FTP | other *** search
/ Business Shareware / Business Shareware.iso / start / edu / qpa / qpa.bas next >
Encoding:
BASIC Source File  |  1993-03-07  |  4.4 KB  |  114 lines
  1. REM  COPYRIGHT 1993. DR. WARD DEUTSCHMAN, BRIARCLIFFE, ACADEMIC AFFAIRS
  2. COLOR 1, 15
  3. BEGIN:
  4. CLS
  5. GOSUB IDENT
  6. LOCATE 2, 5: PRINT "This program is designed to assist in advising college students"
  7. LOCATE 3, 5: PRINT "who have low overall averages (QPA generally less than 2.0)."
  8. LOCATE 5, 5: PRINT "It is designed to answer two questions.  These are:"
  9. LOCATE 7, 5: PRINT "1. What QPA will the student need to maintain in order to graduate"
  10. LOCATE 8, 9: PRINT "with the minimum required number of credits?"
  11. LOCATE 10, 5: PRINT "2. How many credits must the student take in order to achieve the"
  12. LOCATE 11, 9: PRINT "minimum QPA necessary to graduate?"
  13. LOCATE 13, 5: PRINT "3.  Information about this program."
  14. LOCATE 15, 5: INPUT "Please select 1, 2, or 3.  Press <Enter> to stop. ", CHOICE$
  15.         IF CHOICE$ = "" THEN GOTO FINISHED
  16.         IF CHOICE$ = "1" THEN GOTO ONE
  17.         IF CHOICE$ = "2" THEN GOTO TWO
  18.         IF CHOICE$ = "3" THEN GOTO INFO
  19.         GOTO BEGIN
  20.  
  21. ONE:
  22. CLS
  23. GOSUB IDENT
  24. LOCATE 6, 5: INPUT "How many credits are required for the student's major? ", FINCRED
  25. LOCATE 8, 5: INPUT "How many credits has the student successfully completed? ", CURCRED
  26. IF CURCRED >= FINCRED THEN
  27.         LOCATE 14, 5: PRINT "The student has enough credits to graduate. ": GOTO GETY
  28. END IF
  29. LOCATE 10, 5: INPUT "What is the student's current QPA? ", CURAVG
  30. LOCATE 12, 5: INPUT "What is the minimum QPA required to graduate? ", FINAVG
  31. IF CURAVG >= FINAVG THEN
  32.         LOCATE 14, 5: PRINT "The student has a satisfactory average at present. ": GOTO GETY
  33. END IF
  34.  
  35. CREDLEFT = FINCRED - CURCRED
  36. QPLEFT = (FINCRED * FINAVG) - (CURCRED * CURAVG)
  37. AVGLEFT = QPLEFT / CREDLEFT
  38. IF CREDLEFT < 1 THEN
  39.         LOCATE 14, 5: PRINT "The student has enough credits to graduate. ": GOTO GETY
  40. END IF
  41. OK1:
  42. AVGLEFT = INT(AVGLEFT * 100 + .05) / 100
  43. LOCATE 14, 5: PRINT "This student will need to maintain a QPA of"; AVGLEFT; "in all remaining"
  44. LOCATE 15, 5: PRINT "courses, in order to successfully complete this degree program."
  45. IF AVGLEFT > 4! THEN
  46.         LOCATE 17, 5: PRINT "Since an average greater than 4.0 is not possible,"
  47.         LOCATE 18, 5: PRINT "the student should explore other alternatives."
  48. END IF
  49. GOTO GETY
  50.  
  51.  
  52. TWO:
  53. CLS
  54. GOSUB IDENT
  55. LOCATE 6, 5: INPUT "How many credits has the student successfully completed? ", CURCRED
  56. LOCATE 8, 5: INPUT "What is the student's current QPA? ", CURAVG
  57. LOCATE 10, 5: INPUT "What is the minimum QPA required to graduate? ", FINAVG
  58. IF CURAVG >= FINAVG THEN
  59.         LOCATE 14, 5: PRINT "The student has a satisfactory average at present. ": GOTO GETY
  60. END IF
  61.  
  62. LOCATE 12, 5: INPUT "What is the BEST QPA the student can carry? ", BESTAVG
  63. IF BESTAVG <= FINAVG THEN
  64.         LOCATE 14, 5: PRINT "Under these conditions the student cannot improve the QPA enough "
  65.         LOCATE 15, 5: PRINT "to graduate.  Please retry with different assumptions."
  66.         GOTO GETY
  67. END IF
  68. C1 = (CURCRED * CURAVG - FINAVG * CURCRED)
  69. C2 = (FINAVG - BESTAVG)
  70. CREDNEW = ABS(C1 / C2)
  71. CREDNEW = INT(CREDNEW + .5)
  72.  
  73. LOCATE 14, 5: PRINT "In order to achieve a final QPA of"; FINAVG; " this student must complete"
  74. LOCATE 15, 5: PRINT "an additional"; CREDNEW; "credits with a QPA of"; BESTAVG; ", beyond those already finished."
  75. GOTO GETY
  76.  
  77. FINISHED:
  78. END
  79.  
  80. GETY:
  81. LOCATE 23, 5: INPUT "PRESS <ENTER> TO CONTINUE. ", Y$: GOTO BEGIN
  82.  
  83. IDENT:
  84. LOCATE 25, 1
  85. PRINT "Copyright 1993. Dr. Ward Deutschman, Briarcliffe, Office of Academic Affairs"
  86. RETURN
  87.  
  88. INFO:
  89. CLS
  90. GOSUB IDENT
  91. RESTORE 5
  92. 5 DATA "This program is designed to assist in advising students who may be in"
  93. DATA"academic difficulty.  It can be used to calculate the cumulative average "
  94. DATA"(Quality Point Average, or 'QPA') which the student must maintain throughout"
  95. DATA"the student's remaining courses, in order to meet graduation requirements."
  96. DATA "   "
  97. DATA"In addition, the program addresses the need of the advisor who's student"
  98. DATA"says 'I want to take a few extra courses in order to bring up my average.'"
  99. DATA "   "
  100. DATA"The program will allow you to show the student how many additional credits"
  101. DATA"are needed to accomplish that goal."
  102. DATA "   "
  103. DATA "Please let me know how we can improve this program."
  104. DATA "   Dr. Ward Deutschman"
  105. DATA "   Briarcliffe"
  106. DATA "   250 Crossways Park Drive."
  107. DATA "   Woodbury, NY 11797"
  108. LOCATE 5
  109. FOR I = 1 TO 16: READ Y$:  PRINT Y$
  110. NEXT I
  111. GOSUB GETY
  112. GOTO BEGIN
  113.  
  114.